model
{
    theta1 ~ dbeta(s1prior, f1prior)
    theta2 ~ dbeta(s2prior, f2prior)
    s1 ~ dbin(theta1, n1)
    s2 ~ dbin(theta2, n2)
    delta <- theta1 - theta2
}
